home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / ERRORMSG.TSL < prev    next >
Encoding:
Text File  |  1995-08-08  |  1.2 KB  |  44 lines
  1. % -----------------------------------------------------------------------------
  2. % Extract all DeviceResultStr messages                 *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : ERRORMSG.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 07 Aug 1995
  10. %  Latest revision  : 07 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Demonstration script, timer, textfile, error messages
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. ClearScreen
  17. Window 1,1,80,20,6,0,23,23,27," Extracting error messages "
  18. WriteAStr 2,0,31," Esc to Abort "
  19. SetAttr 23
  20.  
  21. OpenText 1,"ERRORMSG.TXT",1
  22.  
  23. ResetTimer 1,60
  24. Set X=0
  25. Repeat
  26.   Set Error=DeviceResultStr(x)
  27.   If Pos("Unknown error code",Error)=0
  28.     WriteLnText 1," ",X," : ",Error
  29.     PrintLn " ",X," : ",Error
  30.   Endif
  31.   Set X=X+1
  32. Until (X>10000) | (Keypressed=1)
  33.  
  34. CloseText 1
  35.  
  36. PrintLn
  37. PrintLn " Done, ERRORMSG.TXT was created"
  38. PrintLn " Time used ",Round(TimeElapsed(1)/1000)," seconds"
  39.  
  40. Set Key=GetKey
  41.  
  42. RemoveWindow
  43.  
  44.